home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / Conditionals.ra < prev    next >
Encoding:
Text File  |  1986-10-21  |  630 b   |  43 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    Conditional statements
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. "RA¬ has one type of conditional!"
  10. "statement.!!"
  11. "NOTE: -1 is considered true,!"
  12. "0 is considered false.!!"
  13. #A;
  14. -1 ["true!"]
  15. 0 ["not true!"]
  16. 12 34 < ["12 is less 34!"]
  17. 12 34 < ["12<34!" 4 3 > ["4>3!"]]
  18. 12 34 > ["12<34!" 4 3 > ["4>3!"]]
  19. #A;
  20. "THE END."
  21. $
  22. &A "!Hit any key: " ?ñ ╡ @`
  23. |
  24. |  RA title routine
  25. |
  26. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  27.  
  28. &O
  29. 40 100 ╜
  30. "RA¬"
  31. 60 45 ╜ 
  32. "⌐ 1986 COM~LINK & S.Koren" 
  33. 80 60 ╜
  34. "All rights reserved." `
  35.  
  36. &L
  37. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  38.  
  39. &N
  40. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  41.  
  42. &P ?ñ @ `
  43. $